home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
aaapcp31.zip
/
AAAPCP.ASP
next >
Wrap
Text File
|
1988-11-13
|
15KB
|
416 lines
; docs? See Bottom of file.
; NOTE: [IR#000]'s are found throughout this file. They are used
; by the ACONFIG.COM configuration/optimizer. DO NOT ALTER.
IF LINKED
MESSAGE"AAAPCP: File MUST NOT be linked with dialing directory."
MESSAGE" Issue ALT-F5 A <ENTER> to use AAAPCP+."
HANGUP
EXIT
ENDIF
STRCPY S3"12" ;REPLACE w/ /baud
STRCPY S8",abc00300,abcd0300^m" ;REPLACE",id,pw^m" [IR#001]
GOTO START: ;jump to start/restart
C_DIAL:
FIND S9"Y"
IF FOUND ; IF repeat flag is ON
ATSAY 00 23 N0" » Press SPACE to abort REPEAT « "
SET MENUMODE ON ; KEEP KEYSTROKES FOR ABORT OPTION
ENDIF
SWITCH S0 ;switch user request (A/P/AREA)
CASE"A" ; case ADDRESS
STRCPY S7 "c " ; setup ADDRESS transmit string
STRCAT S7 S2 ; address
STRCAT S7 S8 ; id/pw
FIND S2"PURSUIT" ; if (SEND=PURSUIT BBS)
IF FOUND
STRCPY S7 "c " ; setup ADDRESS transmit string
STRCAT S7 S2 ; address
STRCAT S7 "^m"
ENDIF
GOSUB PCPADD ; gosub ADDRESS login routine
ENDCASE
DEFAULT ; case NON-ADDRESS (PORT)
STRCPY S7 "c d/" ; setup PORT transmit string
STRCAT S7 S2 ; city
STRCAT S7 "/"
STRCAT S7 S4 ; baud
STRCAT S7 S8 ; id/pw
GOSUB PCP_PORT ; gosub PORT login routine
ENDCASE
ENDSWITCH
RETURN
;
PCP_PORT: ;ROUTINE: c d/xxxxx/bd,id,pw
IF NOT CONNECTED ;if(carrier lost)
MESSAGE"^MAAAPCP: Carrier Lost. Redialing..."
GOSUB DIAL_UP
ENDIF
IF HITKEY ; IF KEY PRESSED(ABORT=Y)
KFLUSH
SET MENUMODE OFF ; ALLOW keys to go to output again
STRCPY S9"A" ; FLAG REPEAT ABORT
ENDIF
TRANSMIT S7 ; TRANSMIT request
RGET S5 80 9 ; Get line #1
RGET S1 80 9 ; Get line #2
IF NOT SUCCESS ; Check to make sure Telenet is alive
ALARM
MESSAGE"AAAPCP: Telenet Appears Frozen. Disconnecting..."
MESSAGE"AAAPCP: Aborting Request to prevent loop."
SET MENUMODE OFF ; turn on keyboard
HANGUP
GOSUB DIAL_UP ; dial back into telenet
STRCPY S1"Request ABORTED due to "
STRCPY S5"Telenet Port Freeze."
RETURN
ENDIF
RGET S5 ; Get line #3
FIND S5"CONNECT" ; Look for connection
IF NOT FOUND ; IF NO CONNECTION
FIND S9"Y"
IF FOUND ; IF repeat flag is ON
GOTO PCP_PORT ; GO BACK and try again (infinite loop)
ENDIF
ENDIF
FIND S5"CONN" ; IF CONNECTION
IF FOUND
ALARM ; sound alarm
EXIT ; exit to term mode
ENDIF
RETURN
;
PCPADD: ;ROUTINE: c xxxxx,id,pw
IF NOT CONNECTED ;if(carrier lost)
MESSAGE"^MAAAPCP: Carrier Lost. Redialing..."
GOSUB DIAL_UP
ENDIF
IF HITKEY ; IF KEY PRESSED(ABORT=Y)
KFLUSH
SET MENUMODE OFF ; ALLOW keys to go to output again
STRCPY S9"A" ; FLAG REPEAT ABORT
ENDIF
TRANSMIT S7 ; TRANSMIT request
RGET S5 80 9 ; Get line #1
RGET S1 80 9 ; Get line #2
IF NOT SUCCESS ; Check to make sure Telenet is alive
ALARM
MESSAGE"AAAPCP: Telenet Appears Frozen. Disconnecting..."
MESSAGE"AAAPCP: Aborting Request to prevent loop."
SET MENUMODE OFF ; turn on keyboard
HANGUP
GOSUB DIAL_UP ; dial back into telenet
STRCPY S1"Request ABORTED due to "
STRCPY S5"Telenet Port Freeze."
RETURN
ENDIF
RGET S5 ; Get line #3
FIND S5"CONNECT" ; Look for connection
IF NOT FOUND ; IF NO CONNECTION
FIND S9"Y"
IF FOUND ; IF repeat flag is ON
GOTO PCP_PORT ; GO BACK and try again (infinite loop)
ENDIF
ENDIF
FIND S5"CONN" ; IF CONNECTION
IF FOUND
ALARM ; sound alarm
EXIT ; exit to term mode
ENDIF
RETURN
;
START: ;STARTUP
STRCPY S1"Restart/Connected" ; assume restart
STRCPY S2" " ; set last request area to nothing
INIT N0 14 ; Color bright yellow
INIT N1 1 ; Color dark blue
INIT N2 2 ; Color green
INIT N3 3 ; Color cyan
INIT N4 4 ; Color red
INIT N5 5 ; Color magenta
INIT N6 6 ; Color brown
INIT N7 7 ;unused ; Color white
INIT N8 8 ;unused ; Color grey
INIT N9 9 ;unused ; Color light blue
MENU_A:
IF NOT CONNECTED ; IF NO CARRIER
CLEAR ; clear screen
GOSUB DIAL_UP ; GOSUB connect to telenet
ENDIF
CLEAR ; clear screen
SET DISPLAY OFF ; turn incoming character display off
BOX 00 00 23 79 N1 ; draw box
ATSAY 01 02 N4"Cmd ST Cty Comments"
ATSAY 00 28 N1"╣ AAAPCP+ v3.1 by Flurb ╠"
ATSAY 01 55 N4"MultiComm 815/282-1494"
ATSAY 02 02 N2"201 NJ New[ ]; 312 IL Chi[1815 ]; 612 MN Min[ ]:"
ATSAY 03 02 N2"202 DC Was[301;703*7]; 313 MI Det[ ]; 617 MA Bos[ ];"
ATSAY 04 02 N2"203 CT Har[ ]. 314 MO SLo[1618 ]; 619 CA SaD[ ]."
ATSAY 05 02 N2"206 WA Sea[ ]; 404 GA Atl[ ]; 713 TX Hou[ ];"
ATSAY 06 02 N2"212 NY NYo[1718 ]; 408 CA SJo[ ]. 714 CA SAn[ ]."
ATSAY 07 02 N2"213 CA LAn[ ]; 414 WI Mil[ ]. 7142 CA Col[ ]."
ATSAY 08 02 N2"214 TX Dal[817 *10]; 415 CA SFa[ ]; 801 UT SLC[ ]:"
ATSAY 09 02 N2"215 PA Phi[ ]; 4152 CA Oak[ ]. 813 FL Tam[ ];"
ATSAY 10 02 N2"216 OH Clv[ ]: 4153 CA PAl[ ]. 816 MO KCi[1913 ];"
ATSAY 11 02 N2"303 CO Den[ ]; 503 OR Por[ ]: 818 CA Gle[ ]."
ATSAY 12 02 N2"305 FL Mia[ ]; 602 AZ Pho[ ]: 919 NC RTP[ ]:"
ATSAY 13 00 N1"╠═══════════════════════════════════════"
ATSAY 13 40 N1"═══════════════════════════════════════╣"
ATSAY 14 02 N6"A: plink,pursuit,execpc, A C aaaaaaa,id,pw . 12"
ATSAY 15 02 N6" portal,31256.06 P C D/ppppp/bb,id,pw : 3 12"
ATSAY 16 02 N6"*7 Dial 7 Digits X Exit/Logoff ; 3 12 24"
ATSAY 17 00 N1"╠═══════════════════════════════════════"
ATSAY 17 40 N1"═══════════════════════════════════════╣"
FATSAY 18 02 N2"Last Port Request: %s,%s/%s" S0 S2 S4
FATSAY 19 02 N3"Status Message : %-.26s%-.26s" S1 S5
FATSAY 20 02 N4"Area/A/P/X<ENTER>: %s" S6
FATSAY 21 02 N5"Baud (3,12,24): %s" S3
ATSAY 22 02 N6"Repeat (Def=n) :"
;
GET_AREA: ;get user request for destination
ATGET 20 22 N4 4 S0 ; Get S0 AREA
SWITCH S0
CASE "_NULL" ; CASE: <ENTER>
STRCPY S0 S6 ; copy last AREA into AREA
ENDCASE
CASE "X" ; CASE: exit
CLEAR
MESSAGE"AAAPCP: Disconnecting Telenet"
HANGUP
GOSUB INFBOX ; gosub aaapcp info box routine
MESSAGE "^M" ; move cursor below box
EXIT ; exit to term
ENDCASE
ENDSWITCH
;
FATSAY 20 22 N4"%-55s" S0 ; display AREA & Clear AREA error message
STRCPY S6 S0 ; set new last AREA
;
SWITCH S0 ; switch AREA
CASE"201"
STRCPY S2"njnew"
ENDCASE
CASE"202"
STRCPY S2"dcwas"
ENDCASE
CASE"203"
STRCPY S2"cthar"
ENDCASE
CASE"206"
STRCPY S2"wasea"
ENDCASE
CASE"212"
STRCPY S2"nynyo"
ENDCASE
CASE"213"